#########################################################################
#									#
# Name:	 	ip_module.pm (Perl Module)				#
#									#
# Completed:	16th October, 2003.					#
#									#
# Updated:	09th February, 2006.					#
#									#
# Author:	Simon Edwards, Linuxha.net				#
#									#
# Arguments:	App							#
#		App	The name of the application to monitor		#
#			IP level connectivity for.			#
#									#
# Purpose:	Currently defunct - here to ensure existing lems	#
#		sesions do not fall over!				#
# Limitations:								#
#									#
# Environment:	None.							#
#									#
# Exit Codes:	N/A							#
# 									#
#########################################################################

#########################################################################
# Bonded interface support						#
# ========================						#
# The IP module actually does nothing when it is asked to monitor	#
# a bonded interface. However the package has been extended to 		#
# support a "stat" method which will return the following 		#
# information when running in bonded mode:				#
# <bond mode>,<interface:state>,<interface:state>			#
# If running in failover mode would return:				#
# FAILOVER:interface,lastfail,count					#
#########################################################################
package ip_module;

BEGIN {
	push @INC,"/usr/local/cluster/lib/perl";
}


# ARG_application is the name of the application...
sub new {
my $self={};
my $application=$_[1];

	$self->{APPLICATION_NAME}=$application;
	bless $self;
	return $self;
}

sub check {
my $self=shift;
my ($res,$e1,$e2);

	return (0);
}

sub stat {
my $self=shift;

	return "";
}

1;
